SCENE 6, lingo, SCENE, "Lingo"
	MUSIC lingo.mid
	ACTOR 1, Chuck, ronnie, 1,5,85
	COMPARE #<bbdpts2>, 1
	IF=  @beginofscene
	SET bbdpts, 0
	SET bbdpts2, 1
@beginofscene
	1: Welcome to Lingo!
	1: Would you like to play or redeem points?
@startmenu
	MENU "Play=@play" "Redeem=@doller"
	WAIT 3
	GOTO @startmenu
END

@doller
	COMPARE #<bbdpts>, 0
	IF= @nopts
	1: Ok, let's see if you have enough points...
	COMPARE #<bbdpts>, 500
	IF= @doller2
	IF> @doller2
	1: #<bbdpts> points isn't enough.
	1: Come back soon.
END

@doller2
	1: Alright! I'll just subtract the points.
	SUB bbdpts, 500
	GIVE I304
	N: *Got a Boom Boom Doller!*
	1: You now have #<bbdpts> points.
	1: What would you like to do now?
	GOTO @startmenu
END

@nopts
	1: You have 0 points. Play more Lingo to get more.
	1: What would you like to do now?
	GOTO @startmenu
END

@learnhow
	1: First of all, I will select a random word.
	1: This word will always be 5 letters long, and usually is a common word used often.
	1: When you see the word, it will have the first letter already there.
	1: You must then say the word you think it is, then spell it letter by letter.
	1: Also, you only have 200 seconds and 7 guesses to get the word, so don't try words you don't think will fit.
	1: I'll give you an example. The begining word is s____.
	1: Say you think it's snack. Then you say...
	1: snack
	1: s
	1: n
	1: a
	1: c
	1: k
	1: Then I will say if any letters are out of place.
 	1: When I say out of place, I mean that they are in the word somewhere, but just not in the spot you said.
	1: In this case, 'k' is out of place, and needs to be put somewhere else in the word.
	1: I now tell you what letters you have correct, and it is sna__.
	1: Since you know that 'k' was out of place, the only place it could be in is the fourth letter.
	1: So now you know that you have snak_, and you think of what letter could finish it off.
	1: You dicide that 'snake' is the word, and type it out again, like this...
	1: snake
	1: s
	1: n
	1: a
	1: k
	1: e
	1: Since, in this example, it is the word, then I will say that you have won and that you can play again.
	1: Every time you win, you get 100 boom points.
	1: With 500 boom points, you can get a Boom Boom Dollar, which is worth 5000 gold.
	1: Every time you play, it costs 500 gold.
	1: Wow, that was a lot to take in. Are you ready to play (yes) or do you want to take the tutorial over again (no)?
	ASK 9999
	IF NO, @learnhow
	1: Okay! Let's play Lingo!
	GOTO @play2
END

@play
	IF G500 @playcont
	GOTO @cantplay
@playcont
	1: Do you need to learn how to play?
	ASK 9999
	IF YES, @learnhow
	1: Ok then! Let's play Lingo!
@play2
	1: I'll just take the 500 gold now...
	TAKE G500
	SET guesses, 7
	SET didwin, 0
	SET gs2, _
	SET gs3, _
	SET gs4, _
	SET gs5, _
@setword
	IF R1, @word1
	IF R1, @word2
	IF R1, @word3
	IF R1, @word4
	IF R1, @word5
	IF R1, @word6
	IF R1, @word7
	IF R1, @word8
	IF R1, @word9
	IF R1, @word10
	IF R1, @word11
	IF R1, @word12
	IF R1, @word13
	IF R1, @word14
	IF R1, @word15
	GOTO @setword
END

@cantplay
	1: Sorry, you don't have enough money!
	1: One game costs 500 gold, come back when you have enough!
END

@word1
	1: Ok! Here you go...
	SET l1, h
	SET l2, o
	SET l3, r
	SET l4, s
	SET l5, e
	SET trueword, horse
	GOTO @start
END

@word2
	1: Ok! Here you go...
	SET l1, p
	SET l2, a
	SET l3, n
	SET l4, i
	SET l5, c
	SET trueword, panic
	GOTO @start
END

@word3
	1: Ok! Here you go...
	SET l1, s
	SET l2, n
	SET l3, a
	SET l4, k
	SET l5, e
	SET trueword, snake
	GOTO @start
END

@word4
	1: Ok! Here you go...
	SET l1, m
	SET l2, o
	SET l3, v
	SET l4, i
	SET l5, e
	SET trueword, movie
	GOTO @start
END

@word5
	1: Ok! Here you go...
	SET l1, m
	SET l2, u
	SET l3, s
	SET l4, i
	SET l5, c
	SET trueword, music
	GOTO @start
END

@word6
	1: Ok! Here you go...
	SET l1, d
	SET l2, o
	SET l3, u
	SET l4, b
	SET l5, t
	SET trueword, doubt
	GOTO @start
END

@word7
	1: Ok! Here you go...
	SET l1, p
	SET l2, u
	SET l3, p
	SET l4, p
	SET l5, y
	SET trueword, puppy
	GOTO @start
END

@word8
	1: Ok! Here you go...
	SET l1, s
	SET l2, t
	SET l3, a
	SET l4, r
	SET l5, s
	SET trueword, stars
	GOTO @start
END

@word9
	1: Ok! Here you go...
	SET l1, p
	SET l2, h
	SET l3, o
	SET l4, n
	SET l5, e
	SET trueword, phone
	GOTO @start
END

@word10
	1: Ok! Here you go...
	SET l1, a
	SET l2, l
	SET l3, i
	SET l4, v
	SET l5, e
	SET trueword, alive
	GOTO @start
END

@word11
	1: Ok! Here you go...
	SET l1, t
	SET l2, a
	SET l3, k
	SET l4, e
	SET l5, n
	SET trueword, taken
	GOTO @start
END

@word12
	1: Ok! Here you go...
	SET l1, a
	SET l2, h
	SET l3, e
	SET l4, a
	SET l5, d
	SET trueword, ahead
	GOTO @start
END

@word13
	1: Ok! Here you go...
	SET l1, w
	SET l2, o
	SET l3, r
	SET l4, l
	SET l5, d
	SET trueword, world
	GOTO @start
END

@word14
	1: Ok! Here you go...
	SET l1, m
	SET l2, o
	SET l3, n
	SET l4, e
	SET l5, y
	SET trueword, money
	GOTO @start
END

@word15
	1: Ok! Here you go...
	SET l1, l
	SET l2, i
	SET l3, n
	SET l4, g
	SET l5, o
	SET trueword, lingo
	GOTO @start
END

@start
	1: The word is #<l1>#<gs2>#<gs3>#<gs4>#<gs5>.
	COUNTDOWN 200
@guesstime
	IF XP, @losetime
	COMPARE #<guesses>, 0
	IF= @loseturn
	SET oopamt, 0
	1: First, say the word.
	ASK 9999
	SET guessword, #<lastask>
	1: Now spell it letter by letter.
	ASK 9999
	SET gl1, #<lastask>
	ASK 9999
	SET gl2, #<lastask>
	ASK 9999
	SET gl3, #<lastask>
	ASK 9999
	SET gl4, #<lastask>
	ASK 9999
	SET gl5, #<lastask>
	IF XP, @losetime
	1: Let's see if it's #<guessword>...
	STRCMP #<guessword>, #<trueword>
	IF= @won
@setting1
	STRCMP #<gl2>, #<l2>
	IF= @letter2
	STRSTR #<trueword>, #<gl2>
	IF> @oop2
@setting2
	STRCMP #<gl3>, #<l3>
	IF= @letter3
	STRSTR #<trueword>, #<gl3>
	IF> @oop3
@setting3
	STRCMP #<gl4>, #<l4>
	IF= @letter4
	STRSTR #<trueword>, #<gl4>
	IF> @oop4
@setting4
	STRCMP #<gl5>, #<l5>
	IF= @letter5
	STRSTR #<trueword>, #<gl5>
	IF> @oop5
@setting5
	IF XP, @losetime
	1: I'n sorry, it's not the correct word.
	1: You now have #<l1>#<gs2>#<gs3>#<gs4>#<gs5>, with #<oopamt> letters out of place.
	SUB guesses, 1
	1: You have #<guesses> guesses left.
	GOTO @guesstime
END

@letter2
	ADD didwin, 1
	SET gs2, #<gl2>
	GOTO @setting2
END

@letter3
	ADD didwin, 1
	SET gs3, #<gl3>
	GOTO @setting3
END

@letter4
	ADD didwin, 1
	SET gs4, #<gl4>
	GOTO @setting4
END

@letter5
	ADD didwin, 1
	SET gs5, #<gl5>
	GOTO @setting5
END

@oop2
	ADD oopamt, 1
	1: #<gl2> is out of place.
	GOTO @setting2
END

@oop3
	ADD oopamt, 1
	1: #<gl3> is out of place.
	GOTO @setting3
END

@oop4
	ADD oopamt, 1
	1: #<gl4> is out of place.
	GOTO @setting4
END

@oop5
	ADD oopamt, 1
	1: #<gl5> is out of place.
	GOTO @setting5
END

@won
	1: You've won!
	ADD bbdpts, 100
	1: You now have #<bbdpts> boom points.
	GOTO @playagain
END

@loseturn
	1: Ohh! I'm sorry! You're out of turns!
	1: The word was #<trueword>.
	GOTO @playagain
END

@losetime
	1: Oh no! You've ran out of time!
	1: The word was #<trueword>.
	GOTO @playagain
END

@playagain
	COUNTDOWN 0
	1: Would you like to play again?
	ASK 9999
	IF YES, @play
	1: Come back any time!
END

SCENE 1053 filler, SCENE
GOTO @eventactorclick3

@bignumberboard
	N: #<n1c1> #<n2c1> #<n3c1> #<n4c1> #<n5c1>
	N: #<n1c2> #<n2c2> #<n3c2> #<n4c2> #<n5c2>
	N: #<n1c3> #<n2c3> #<n3c3> #<n4c3> #<n5c3>
	N: #<n1c4> #<n2c4> #<n3c4> #<n4c4> #<n5c4>
	N: #<n1c5> #<n2c5> #<n3c5> #<n4c5> #<n5c5>
END

@eventactorclick3
	SET n1c1, %R99
	SET n1c2, %R99
	SET n1c3, %R99
	SET n1c4, %R99
	SET n1c5, %R99
	SET n2c1, %R99
	SET n2c2, %R99
	SET n2c3, %R99
	SET n2c4, %R99
	SET n2c5, %R99
	SET n3c1, %R99
	SET n3c2, %R99
	SET n3c3, %R99
	SET n3c4, %R99
	SET n3c5, %R99
	SET n4c1, %R99
	SET n4c2, %R99
	SET n4c3, %R99
	SET n4c4, %R99
	SET n4c5, %R99
	SET n5c1, %R99
	SET n5c2, %R99
	SET n5c3, %R99
	SET n5c4, %R99
	SET n5c5, %R99
	GOTO @comparenumbers
END

@comparenumbers
;
;
@comparenumbersn1c1
	COMPARE #<n1c1>, 10
	IF< @add0n1c1
	@comparenumbersn2c1
	COMPARE #<n2c1>, 10
	IF< @add0n2c1
	@comparenumbersn3c1
	COMPARE #<n3c1>, 10
	IF< @add0n3c1
	@comparenumbersn4c1
	COMPARE #<n4c1>, 10
	IF< @add0n4c1
	@comparenumbersn5c1
	COMPARE #<n5c1>, 10
	IF< @add0n5c1

@comparenumbersn1c2
	COMPARE #<n1c2>, 10
	IF< @add0n1c2
	@comparenumbersn2c2
	COMPARE #<n2c2>, 10
	IF< @add0n2c2
	@comparenumbersn3c2
	COMPARE #<n3c2>, 10
	IF< @add0n3c2
	@comparenumbersn4c2
	COMPARE #<n4c2>, 10
	IF< @add0n4c2
	@comparenumbersn5c2
	COMPARE #<n5c2>, 10
	IF< @add0n5c2

@comparenumbersn1c3
	COMPARE #<n1c3>, 10
	IF< @add0n1c3
	@comparenumbersn2c3
	COMPARE #<n2c3>, 10
	IF< @add0n2c3
	@comparenumbersn3c3
	COMPARE #<n3c3>, 10
	IF< @add0n3c3
	@comparenumbersn4c3
	COMPARE #<n4c3>, 10
	IF< @add0n4c3
	@comparenumbersn5c3
	COMPARE #<n5c3>, 10
	IF< @add0n5c3

@comparenumbersn1c4
	COMPARE #<n1c4>, 10
	IF< @add0n1c4
	@comparenumbersn2c4
	COMPARE #<n2c4>, 10
	IF< @add0n2c4
	@comparenumbersn3c4
	COMPARE #<n3c4>, 10
	IF< @add0n3c4
	@comparenumbersn4c4
	COMPARE #<n4c4>, 10
	IF< @add0n4c4
	@comparenumbersn5c4
	COMPARE #<n5c4>, 10
	IF< @add0n5c4

@comparenumbersn1c5
	COMPARE #<n1c5>, 10
	IF< @add0n1c5
	@comparenumbersn2c5
	COMPARE #<n2c5>, 10
	IF< @add0n2c5
	@comparenumbersn3c5
	COMPARE #<n3c5>, 10
	IF< @add0n3c5
	@comparenumbersn4c5
	COMPARE #<n4c5>, 10
	IF< @add0n4c5
	@comparenumbersn5c5
	COMPARE #<n5c5>, 10
	IF< @add0n5c5
	GOTO @bignumberboard


@add0n1c1
	SET n1c1, 0#<n1c1>
	GOTO @comparenumbersn2c1
	END
	@add0n2c1
	SET n2c1, 0#<n2c1>
	GOTO @comparenumbersn3c1
	END
	@add0n3c1
	SET n3c1, 0#<n3c1>
	GOTO @comparenumbersn4c1
	END
	@add0n4c1
	SET n4c1, 0#<n4c1>
	GOTO @comparenumbersn5c1
	END
	@add0n5c1
	SET n5c1, 0#<n5c1>
	GOTO @comparenumbersn1c2
END

@add0n1c2
	SET n1c2, 0#<n1c2>
	GOTO @comparenumbersn2c2
	END
	@add0n2c2
	SET n2c2, 0#<n2c2>
	GOTO @comparenumbersn3c2
	END
	@add0n3c2
	SET n3c2, 0#<n3c2>
	GOTO @comparenumbersn4c2
	END
	@add0n4c2
	SET n4c2, 0#<n4c2>
	GOTO @comparenumbersn5c2
	END
	@add0n5c2
	SET n5c2, 0#<n5c2>
	GOTO @comparenumbersn1c3
END

@add0n1c3
	SET n1c3, 0#<n1c3>
	GOTO @comparenumbersn2c3
	END
	@add0n2c3
	SET n2c3, 0#<n2c3>
	GOTO @comparenumbersn3c3
	END
	@add0n3c3
	SET n3c3, 0#<n3c3>
	GOTO @comparenumbersn4c3
	END
	@add0n4c3
	SET n4c3, 0#<n4c3>
	GOTO @comparenumbersn5c3
	END
	@add0n5c3
	SET n5c3, 0#<n5c3>
	GOTO @comparenumbersn1c4
END

@add0n1c4
	SET n1c4, 0#<n1c4>
	GOTO @comparenumbersn2c4
	END
	@add0n2c4
	SET n2c4, 0#<n2c4>
	GOTO @comparenumbersn3c4
	END
	@add0n3c4
	SET n3c4, 0#<n3c4>
	GOTO @comparenumbersn4c4
	END
	@add0n4c4
	SET n4c4, 0#<n4c4>
	GOTO @comparenumbersn5c4
	END
	@add0n5c4
	SET n5c4, 0#<n5c4>
	GOTO @comparenumbersn1c5
END

@add0n1c5
	SET n1c5, 0#<n1c5>
	GOTO @comparenumbersn2c5
	END
	@add0n2c
	SET n2c5, 0#<n2c5>
	GOTO @comparenumbersn3c5
	END
	@add0n3c
	SET n3c5, 0#<n3c5>
	GOTO @comparenumbersn4c5
	END
	@add0n4c5
	SET n4c5, 0#<n4c5>
	GOTO @comparenumbersn5c5
	END
	@add0n5c5
	SET n5c5, 0#<n5c5>
	GOTO @bignumberboard
END

@markoff10
;
;
@markoff10n1c1
	IF R1, @